home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / clipart / dtp_pgs3.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-19  |  794b  |  39 lines
  1. /* Bild aus Clipart/PicBase an PageStream3 übergeben */
  2.  
  3. ARG bild
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS DataBase Message "Bild wird übergeben ..."
  8.  
  9. pos = LastPos(".",bild)
  10. IF pos > 0 THEN DO
  11.   filter = "FILTER "
  12.   ext = SubStr(bild,pos+1,Length(bild)-pos)
  13.   SELECT
  14.     WHEN ext = "IFF" THEN
  15.       filter = filter || "IFFILBM"
  16.     WHEN ext = "GIF" THEN
  17.       filter = filter || "GIF"
  18.     WHEN ext = "PCX" THEN
  19.       filter = filter || "PCX"
  20.     WHEN ext = "BMP" THEN
  21.       filter = filter || "BMP"
  22.     WHEN ext = "TIF" THEN
  23.       filter = filter || "TIFF"
  24.     OTHERWISE
  25.       filter = ""
  26.   END
  27.   END
  28. ELSE
  29.   filter = ""
  30.  
  31. ADDRESS 'PAGESTREAM'
  32.  
  33. PlaceGraphic FILE bild filter STATUS
  34. IF RC ~= 0 THEN
  35.   ADDRESS DataBase Message "Bild kann nicht übergeben werden"
  36. ELSE
  37.   ADDRESS DataBase Message "Bild übergeben"
  38.  
  39.